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ABSTRACT 


THE PURPOSE OF THE MINC-11 CHAIN TERMINATOR MESSAGE PROGRAM IS 
TO INFORM THE OPERATOR ABOUT THE COMPLETION OF RUNNING OF A 

‘ DIAGNOSTIC Re ht UNDER THE CURRENT ‘'CHAIN'’ OPERATION, 

THE END OF A “‘CHAIN’’ OF DIAGNOSTIC PROGRAMS IS NOT CLEARLY 


THAT A CHAIN HAS BEEN COMPLETED IN A MANOR THAT AVOIDS ANY 
DOUBT OR CONFUSION. BECAUSE THE PROGRAM DOES NO OF saa THE 
PROGRAM SHOULD ONLY BE THE LAST PROGRAM IN A ‘‘CHAIN’ 


REQUIREMENT 


1. ANY PDP11 COMPUTER WITH 4K OF MEMORY 
2. DLV11 WITH 1/0 TERMINAL (LA36, VT100, ETC.) 


STARTING PROCEDURE 


1. THE PROGRAM WILL RESPOND BY TYPING THE PROGRAM TITLE. 
2. THE PROGRAM WILL NOW TYPE A MESSAGE INFORMING THE OPERATOR 
THAT THE DIAGNOSTIC CHAIN HAS BEEN COMPLETED. 


PROGRAM START 


LOCATION 200 IS THE STARTING AND RESTART ADDRESS. 
ERROR REPORT ING 


NO ERRORS ARE REPORTED. 


SEQ 00035 


7% 
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CVMNGA .P11 TABLE OF CONTENTS SEQ 0004 


10 BASIC DEFINITIONS 

17 ACT11 HOOKS 

19 APT An gate be BLOCK 

20 COMMON TAGS 

(2) APT MAILBOX~-E TABLE 

(1) ERROR POINTER TABLE 

26 INITIAL START-UP,HOUSEKEEPING, AND DIALOGUE 
28 INITIALIZE THE COMMON TAGS 
29 TYPE PROGRAM NAME 

32 END OF PASS ROUTINE 

44 TYPE ROUTINE 

45 APT COMMUNICATIONS ROUTINE 
46 TRAP DECODER 

(3) TRAP TABLE 


. os 
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.SBTTL APT PARAMETER BLOCK 


SRE EKER EEKEREKEREREKE EE 


Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


SAREE TREKKA EEERERERKEEKEEKEKEKEKEEREKKKKEKEERERKEKEEKEEKKEEEEKE EH 


CVMNGA P11 BASIC DEFINITIONS SEQ 0005 

14 

15 000200 .=200 

16 000200 000137 001246 JMP BEGIN ;START ADDRESS 

at . SBTTL ACTI1 HOOKS 
(2) SUISUISISIOISIS SIS SIOIDISIOISIOIIISISISISIIISIIOIDIOIOI IDIOTIC IOI OI TT ITT TTT TOT TTT ATTAIN 

(1) “HOOKS REQUIRED BY ACT11 

(1) 000204 $SVPC=. i: SAVE PC 

(1) 000046 -=46 

(1) 000046 001572 SENDAD 331)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
(1) 000052 =52 

(1) 000052 000000 «WORD QO +32)SET LOC. sae TO ZERO 

(1) 000204 .=$SVPC 32 RESTORE P 

18 001000 .=1000 

19 

. 

2 


001000 ~$X=.  ;3SAVE CURRENT LOCATION 

000024 ~=24 3z;SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 ;:FOR APT START UP 

000044 .=44 szPOINT TO APT INDIRECT ADDRESS PNTR. 
000044 001000 SAPTHOR ;;POINT TO APT HEADER BLOCK 

001000 -=.$X  ;;RESET LOCATION COUNTER 


SOI III III ICICI ICICI IOI IIOIOI IIIT ITAA SAIS SAS SIISSSSASISSS SAN 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


001000 SAPTHD : 

001000 000000 $HIBTS: .WORD 0 ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

001002 001164 SMBADR: .WORD S$MAIL : ADDRESS OF APT MAILBOX (BITS 0-15) 

001004 000014 STSTM: .WORD 12. ;;RUN TIM OF LONGEST TEST 

001006 000005 SPASTM: .WORD 5. + RUN TIME IN SECS. OF 1ST PASS i’ 1 UNIT (QUICK VERIFY) 

001010 000021 SUNITM: .WORD 17. ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


a oe oe, a ee ee a, ee, a a a, ee oe ee ee 
eee eee. a eS ee ee ee a ot ae 


001012 000031 . WORD SETEND-SMAIL/2 ;;LENGTH MAILBOX-E TABLE (WORDS) 


CVMNG-A MINC=-11 
CVMNGA .P 


Fe ee ee ee an ee, ek ee, ee, ae, ee, ee, in ee, fe, a, a ae ee, a, a a ee a ee ee ee ee 
ee a a a a a a i a a ee a a a a a ee a ee ee ae ele es “es a 


001136 


CHAIN TERMINATOR PROGRAM 
COMMON TAGS 


001100 
000000 


MACY11 27(654) 


-SBTTL COMMON TAGS 


5 TARA AREREEEKREKAEEEAAERREERERRARARARRRRRERRRE EHD 


>*THIS 
3; *USED 


SCMTAG: 


SAUTOB: 


.=1100 


eleleleleleleleleler 1212) 212) eilelelea) 


~A~ 
2 
oS 
v 
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: START OF 
+s CONTAINS 


:;CONTAINS ° 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
IN THE PROGRAM. 


COMMON TAGS 


THE TEST NUMBER 

ERROR FLAG 

SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 

MAX. ERRORS PER TEST 

PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD’ DATA 
ADDRESS OF "BAD" DATA 
"GOOD" DATA 

BAD’ 


DATA 
;;RESERVED--NOT TO BE USED 


;;AUTOMATIC MODE INDICATOR 
;3 INTERRUPT MODE INDICATOR 


; ADDRESS OF SWITCH REGISTER 
;sADDRESS OF DISPLAY REGISTER 
;zTTY KBD STATUS 

::TTY KBD BUFFER 

:zTTY PRINTER STATUS REG. ADDRESS 
;zTTY PRINTER BUFFER REG. ADDRESS 


;; CONTAINS 
;; CONTAINS 


NULL CHARACTER FOR FILLS 
# OF FILLER CHARACTERS ar 


2 INSERT FILL CHARS. AFTER A ‘LINE F 
"TERMINAL AVAILABLE'’ FLAG (BIT<07>=0=YES) 
QUESTION MARK 


; ; CARRIAGE 


;;LINE FEED 


RE TURN 


5 LEAR EKER EEE EEE EERE 


- SBTTL 


APT MAILBOX-E TABLE 


STREETER EEE EREEERAEEEAEKEREERRERR ER 


;;APT MAILBOX 


;;MESSAGE TYPE CODE 


;;FATAL ERROR NUMBER 


;; TEST NUMBER 


: IME SSAGE ADDRESS 
: MESSAGE LENGTH 


SEQ 0006 


CVMNG-A MINC-11 
CVMNGA P11 


CHAIN TERMINATOR PROGRAM MACY11 27(654) 


APT MAILBOX-E TABLE 


SE TABLE: 
000 SENV:  .BYTE AENV 
000 SENVM: .BYTE AENVM 
000000 $SWREG: .WORD ASWREG 
000000 SUSWR: .WORD AUSWR 
000000 $CPUOP: .WORD  ACPUOP 
** 
* 
2e 
;* 
;* 
;® 
000 $MAMS1: .BYTE AMAMS1 
000 SMTYP1: .BYTE  AMTYP1 
** 
4 
;® 
** 
000000 SMADR1: .WORD AMADR1 
** 
000 SMAMS2: .BYTE AMAMS2 
000 SMTYP2: .BYTE AMTYP2 
000000 SMADR2: .WORD AMADR2 
000 SMAMS3: .BYTE AMAMS 
000 SMTYP3: .BYTE AMTYP3 
000000 SMADR3: .WORD AMADR3 
000 SMAMS4: .BYTE AMAMS4 
000 SMTYP4: .BYTE  AMTYP4 
000000 SMADR4: .WORD #AMADR4 
000000 S$VECT1: .WORD AVECT1 
000000 $VECT2: .WORD AVECT2 
000000 $BASE -WORD ABASE 
000000 SDEVM: .WORD ADEVM 
000000 $CDW1 -WORD ACDW1 
SE TEND 
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:;APT ENVIRONMENT TABLE 
: sENVIRONMENT BYTE 
: ;ENVIRONMENT MODE BITS 
:;APT SWITCH REGISTER 
3;;USER SWITCHES 
3;CPU TYPE,OPTIONS 
BITS 15=-11=CPU TYPE 
11/04=01,11/05=02,11/20=03,11/40=04,11/45=05 
11/70=06,PD0=07 ,Q=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
::HIGH ADDRESS,M.S. BYTE 
::MEM. TYPE,BLKA1 
MEM.TYPE BYTE (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
: HIGH ADDRESS,BLKA1 
MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘’TYPE’’ ABOVE 
:z;HIGH ADDRESS.M.S. BYTE 
> :MEM. TYPE ,BLKA2 
:;MEM.LAST ADDRESS,BLKA2 
: HIGH ADDRESS,M.S.BYTE 
: MEM. TYPE .BLKAS 
::MEM.LAST ADDRESS, BLKA&S3 
:;HIGH ADDRESS,M.S.BYTE 
> :MEM. TYPE ,BLKA4 
::MEM.LAST ADDRESS, BLKA4 
:; INTERRUPT VECTOR41,BUS PRIORITYA1 
:: INTERRUPT VECTORA2BUS PRIORITYA2 
::BASE ADDRESS OF EQUIPMENT UNDER TEST 
;:DEVICE MAP 
:: CONTROLLER DESCRIPTION WORDA1 


SEQ 0007 


. 4 
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at .SBTTL ERROR POINTER TABLE 

(1) >*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

(1) >*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

(1) :*LOCATION SI] TEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
(1) 3 *NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (S$ERRPC). 

ag - *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
(1) ot EM ;;POINTS TO THE ERROR MESSAGE 

(1) ;* Dri ;;POINTS TO THE DATA HEADER 

(1) :* DT ;:;POINTS TO THE DATA 

a 3% DF :z;POINTS TO THE DATA FORMAT 

(1) 

pt 001246 SERRTB: 

2c s;NO ERRORS ARE REPORTED 
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CVMNGA P11 INITIAL START=UP,HOUSEKEEPING, AND DIALOGUE , SEQ 0009 
26 .SBTTL INITIAL START-UP,HOUSEKEEPING, AND DIALOGUE 
27 001246 000005 BEGIN: RESET 
28 -SBTTL INITIALIZE THE COMMON TAGS 
(1) >;CLEAR THE COMMON TAGS ($CMTAG) AREA 
(1) 001250 012706 001100 MOV —«s- ASCMTAG, R6 ::FIRST LOCATION TO BE CLEARED 
(1) 001254 005026 CLR (R6) + >: CLEAR MEMORY LOCATION 
(1) 001256 022706 001140 CMP = #SWR,R6-; ;DONE? 
(1) 001262 001374 BNE .=6 ;;LOOP BACK IF NO 
(1) 001264 012706 001100 MOV —s#*STACK,, SP ::SETUP THE STACK POINTER 
(1) INITIALIZE A FEW VECTORS 
(1) 001270 012737 002470 000034 #STRAP ,a#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
(1) 001276 012737 000340 000036 MOV «#340, AA TRAPVEC 2: LEVEL 7 
(1) 001304 013737 001552 001544 MOV SENDCT,SEOPCT :;SETUP END-OF =PROGRAM COUNTER 
(2) ;:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
(2) ::EQUAL TO A’ SETUP FOR A SOFTWARE SWITCH REGISTER. 
(2) 001312 013746 000004 MOV —«s @WERRVEC,-(SP) ;;SAVE ERROR VECTOR 
(2) 001316 012737 001352 000004 MOV §§ #64$,aMERRVEC ::SET UP ERROR VECTOR 
(2) 001324 012737 177570 001140 MOV  #DSWR, SWR ;;SETUP FOR A HARDWARE SWICH REGISTER 
(2) 001332 012737 177570 001142 MOV —«s ADDISP, DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
(2) 001340 022777 177777 177572 CMP ss #=1, @SWIR =: TRY TO REFERENCE HARDWARE SWR 
(2) 001346 001012 BNE 66$ BRANCH IF NO TIMEOUT TRAP OCCURRED 
(2) SZAND THE HARDWARE SWR IS NOT = -1 
(2) 001350 000403 BR 65$ = BRANCH IF NO TIMEOUT 
(2) 001352 012716 001360 64$: MOV #65$, (SP) ::SET UP FOR TRAP RETURN 
(2) 001356 000002 RTI 
(2) 001360 012737 000176 001140 65$: MOV — #SWREG, SWR ;:POINT TO SOFTWARE SWR 
(2) 001366 012737 000174 001142 MOV _—s AD ISPREG,DISPLAY 
(2) 001374 012657 000004 66$: MOV (SP)+,aMERRVEC ;;:RESTORE ERROR VECTOR 
(2) 001400 005037 001172 CLR SPASS :CLEAR PASS COUNT 
(2) 001404 132737 000200 001205 BITB _#APTSIZE,SENVM ::TEST USER SIZE UNDER APT 
(2) 001412 001403 BEQ 67$ >:YES,USE NON-APT SWITCH 
(2) 001414 012737 001206 001140 MOV §- ASSWREG, SWR :INO,USE APT SWITCH REGISTER 
(2) 001422 67$: 
20 .SBTTL TYPE PROGRAM NAME 
(1) >; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
(1) 001422 005227 177777 INC #1 :zFIRST TIME? 
(1) 001426 001035 BNE 68s : BRANCH IF NO 
(1) 001430 022737 001572 000042 (MP WSENDAD,@#42 = ; ACT-11? 
(1) 001436 001431 BEQ 68$ BRANCH IF YES 
(1) 001440 104401 001446 TYPE 69 :;TYPE ASCIZ STRING 
(1) 001444 000426 BR 68$ “GET OVER THE ASCIZ 
pate 52698: .ASCIZ <CRLF>#CVMNG-A MINC-11 CHAIN TERMINATOR PROGRAM#<CRLF> 
30 001522 104401 001612 TYPE —_, SETMNC ;TELL OPER. ABOUT COMPLETING THE CHAIN 
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a .SBTTL END OF PASS ROUTINE 

(2) 5 FAA RAAEAAAEEAAEARAREAAEARAREEEAEARAKAERERAERAERRAERERARRR ARERR EEE 
(1) ;*INCREMENT THE PASS NUMBER ($PASS) 

(1) ;*DING THE TTY BELL ON END OF PROGRAM 

(1) ;*IF THERES A MONITOR GO TO IT 

(1) :*IF THERE ISN'T JUMP TO 200 

(1) :*WHEN A TERMINAL DOES NOT HAVE A BELL "cob 6 eo ~— BE CHANGED 
(1) ;*TO A PRINTING CHARACTER a ares = "END OF P 

a3 :*1E. 177501 WOULD PRINT 

(1) 001526 SEOP: 

(2) 001526 000240 NOP 

(1) 001530 005237 001172 INC SPASS : INCREMENT THE PASS NUMBER 
(1) 001534 042737 100000 001172 BIC #100000,$PASS  IDON’ T ALLOW A NEG. NUMBER 
(1) 001542 005327 DEC (PC) + ; sLOOP? 

(1) 001544 000001 SEOPCT: .WORD 1 

(1) 001546 003015 BGT SDOAGN 3sVES 

(1) 001550 012737 MOV (PC)+,a(PC)+ ;zRESTORE COUNTER 

(1) 001552 000001 SENDCT: 1 

(1) 001554 001544 SEOPCT 

(1) ‘001556 104401 001606 TYPE . $BELL ;zRING A BELL 

(1) 001562 013700 000042 $GET42: MOV 42 20 ;;GET MONITOR ADDRESS 

(1) 001566 001405 BEQ SDCAON ;;BRANCH IF NO MONITOR 

(1) 001570 000005 RESET ;;CLEAR THE WORLD 

(1) 001572 004710 SENDAD: JSR PC, (RO) ;:G0 TO MONITOR 

(1) 001574 000240 NOP ;sSAVE ROOM 

(1) 001576 000240 NOP ee 

(1) 001600 000240 NOP ;ACT11 

(1) 001602 SDOAGN: 

(1) 001602 000137 000200 JMP a#200 ; ;RETURN 

(1) 001606 207 $BELL: .BYTE 207 

(1) 001607 377 377 000 $ENULL: .BYTE <-1,-1,0 33NULL CHARACTER STRING 


ys 
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CVMNGA P11 END OF PASS ROUTINE SEQ 0011 


4 :ASCII MESSAGES 
35 001612 015 O12 012 SETMNC: .BYTE 15,12,%2 
36 001615 117 042520 040522 -ASCII /OPERATOR = THE AUTOMATIC RUNNING OF THE DIAGNOSTICS / 


001702 051503 040 
37 001705 110 051501 047040 -ASCII /HAS NOW BEEN COMPLETED/ 
001712 053517 041040 042505 


38 001733 015 012 012 -BYTE 15,12,12,0 
39 001736 000 
40 001740 ~EVEN 
41 000176 SWREG=176 
4 000174 DISPREG=174 
+ -SBTTL TYPE ROUTINE 
( 
(2) Sz MeOARBBBASBAAAZAAALASZALASALALALEL ALES ASSES ELAR ASA RRA SRR SAR ARARARRAR SAAS SS | 
(1) = *ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
(1) >*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
(1) : *NOT El: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
(1) 3 *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
a :*NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
‘** 
(1) f *CALL: 
(1) #1) USING A TRAP INSTRUCTION | 
Nh _ TYPE »MESADR ::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
( 3% 
(1) ;* TYPE 
(1) 3% ME SADR 
i 2 
(1) 001740 105737 001157 $TYPE: TSTB STPFLG 3271S THERE A TERMINAL? 
(1) 001744 100002 BPL 1$ 7;7;BR IF YES 
(1) 001746 000000 HAL T :¢HALT HERE IF NO TERMINAL 
(1) 001750 000430 BR 3$ AVE 
(1) 001752 010046 1$: MOV RO,-(SP) 725A VE RO 
(1) 001754 €17600 000002 MOV a2(SP),RO 3;GET ADDRESS OF ASCIZ STRING 
(1) 001760 122737 000001 001204 CMPB #APTENV, SENV ie RUNNING IN APT MODE 
(1) 001766 001011 BNE 62$ 3NO,GO CHECK FOR y*: eens 
(1) 001770 132737 000100 9001205 BITB #APTSPOOL , SENVM ; s SPOOL MESSAGE TO AP 
(1) 001776 001405 BEQ 62$ 3;NO,GO CHECK FOR CONSOLE 
(1) 002000 010037 002010 MOV RO,61$ >: SETUP MESSAGE ADDRESS FOR APT 
(1) 002004 004737 002230 JSR PC, SATYS + ¢ SPOOL MESSAGE TO APT 
(1) 002010 000000 61$: .WORD 0Q sMESSAGE ADDRESS 
(1) 002012 132737 000040 001205 62$: BITB #APTCSUP,SENVM +s APT CONSOLE SUPPRESSED 
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VMNGA P11 TYPE ROUTINE SEQ 0012 
(1) 002020 001003 BNE 60$ >: YES,SKIP TYPE OUT 
(1) 002022 112046 2$: MOVB (RO) +,--(SP) 3;PUSH CHARACTER TO BE TYPED ONTO STACK 
(1) 002024 001005 BNE 4$ :;BR IF IT ISN'T THE TERMINATOR 
(1) 002026 005726 TST (SP)+ ;31F TERMINATOR POP IT OFF THE STACK 
(1) 002030 012600 60$: MOV (SP)+,RO : sRESTORE RO 
(1) 002032 062716 000002 3$: ADD #2, (SP) dengey H RETURN PC 
(1) 002036 000002 RTI 7 RETURN 
(1) 002040 122716 000011 4$: CMPB #HT , (SP) ; ;BRANCH IF <HT> 
(1) 002044 001430 BEQ 8$ 
(1) 002046 122716 000200 CMPB ACRLF , (SP) : ;BRANCH IF NOT <CRLF> 
(1) 002052 001006 BNE 5$ 
(1) 002054 005726 TST (SP)+ ::POP <CR><LF> EQUIV 
(1) 002056 104401 TYPE 3: TYPE A CR AND LF 
(1) 002060 001161 SCRLF 
(1) 002062 105037 002216 CLRB SCHARCNT :;CLEAR CHARACTER COUNT 
(1) 000755 BR 2$ ::GET NEXT CHARACTER 
(1) 002070 004737 002152 S$: JSR PC, STYPEC :;GO TYPE THIS CHARACTER 
(1) 002074 123726 001156 6$: CMPB SFILLC,(SP)+ 21S IT TIME FOR FILLER CHARS.? 
(1) 002100 001350 BNE 2$ : IF NO GO GET NEXT CHAR. 
(1) 002102 013746 001154 MOV SNULL ,~ (SP) : GET # OF FILLER CHARS. NEEDED 
(1) 7ZAND THE NULL CHAR. 
(1) 002106 105366 000001 7$: DECB 1(SP) >;DOES A MULL NEED TO BE TYPED? 
(1) 002112 002770 BLT 6$ ::BR IF NO--GO POP THE NULL OFF OF STACK 
(1) 002114 004737 002152 JSR PC ,STYPEC Sh TYPE A NULL 
(1) 002120 105337 002216 DECB SCHARCNT >DO NOT COUNT AS A COUNT 
+ 002124 000770 BR 7$ 34 
St :HORIZONTAL TAB PROCESSOR 
(1) 002126 112716 000040 8$: MOVB #° ,(SP) : REPLACE TAB WITH SPACE 
(1) 002132 004737 002152 9$: JSR PC, STYPEC +3 TYPE A SPACE 
(1) 002136 132737 000007 002216 BITB #7, $CHARCNT ; s BRANCH IF NOT AT 
(1) 002144 001372 BNE 9$ STOP 
<1) 002146 005726 TST (SP)+ * pop SPACE OFF STACK 
(1) 002150 000724 BR 2$ fo NEXT CHARACTER 
(1) 002152 105777 176772 STYPEC: TSTB a$TPS WAIT UNTIL PRINTER IS READY 
(1) 002156 100375 BPL STYPEC 
(1) 002160 116677 000002 176764 MOVB 2(SP) ,aSTPB ::LOAD CHAR TO BE TYPED INTO DATA REG. 
(1) 002166 122766 000015 000002 CMPB #CR,2(SP) :;1S CHARACTER A CARRIAGE RETURN? 
(1) 002174 001003 BNE 1% ; BRANCH IF NO 
(1) 002176 105037 002216 CLRB SCHARCNT ¢ 2 YES~=CLEAR CHARACTER COUNT 
(1) 002202 000406 BR STYPEX XIT 
(1) 002204 122766 000012 000002 1$: CMPB WLF, _— 4h CHARACTER A LINE FEED? 
(1) 002212 001402 BEQ STYPE : ;BRANCH IF YES 
(1) 002214 105227 INCB PCa :: COUNT THE CHARACTER 
(1) 002216 000000 SCHARCNT:.WORD O 7; CHARACTER COUNT STORAGE 
af 002220 000207 STYPEX: RTS PC 
at -SBTTL APT COMMUNICATIONS ROUTINE 
(2) SLE R EEE EERE REE REEEREREEKEKEKEEKEKKEEKEEEE 
(1) 002222 112737 000001 002466 S$ATY1: MOVB #1,$SFFLG 3;TO REPORT FATAL ERROR 
(1) 002230 112737 000001 002464 S$ATY3: MOVB #1,SMFLG :;TO TYPE A MESSAGE 
(1) 002236 000403 BR SATYC 
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APT COMMUNICATIONS ROUTINE SEQ 0013 
(1) 002240 112737 000001 002466 SATY4: MOVB  4#1,$FFLG ::T0 ONLY REPORT FATAL ERROR 
(2) 002246 SATYC: 
(3) 002246 010046 MOV RO,-(SP) ; PUSH RO ON STACK 
(3) 002250 010146 MOV R1,-(SP) =PUSH R1 ON STACK 
(1) 002252 105737 002464 TSTB = SMFLG 3 § SHOULD TYPE A MESSAGE? 
(1) 002256 001450 BEQ 5$ “IF NOT: BR 
(1) 002260 122737 000001 001204 CMPB = MAPTENV, SENV ; | OPERATING UNDER APT? 
(1) 002266 001031 BNE 3$ “IF NOT: BR 
(1) 002270 132737 000100 001205 BITB § #APTSPOOL,SENVM is SHOULD SPOOL MESSAGES? 
(1) 002276 001425 BEQ NOT: BR 
(1) 002300 017600 000004 MOV a4 (SP) ,RO GET MESSAGE ADDR. 
(1) 002304 062766 000002 000004 ADD #2,4(SP) - BUMP RETURN ADDR. 
(1) 002312 005737 001164 1$: TST SMSGTYPE ::SEE IF DONE W/ LAST XMISSION? 
(1) 002316 001375 BNE 1$ -:IF NOT: WAIT 
(1) 002320 010037 001200 MOV RO, $MSGAD -:PUT ADDR IN MAILBOX 
(1) 002324 105720 2$: TSTB ~—s_- (RO) + ::FIND END OF MESSAGE 
(1) 002326 001376 BNE 2$ 
(1) 002330 163700 001200 SUB SMSGAD ,RO ::SUB START OF MESSAGE 
(1) 002334 006200 ASR RO ::GET MESSAGE LNGTH IN WORDS 
(1) 002336 010037 001202 MOV RO, SMSGLGT >:PUT LENGTH IN MAILBOX 
(1) 002342 012737 000004 001164 MOV #4, SMSGTYPE >:TELL APT TO TAKE MSG. 
(1) 002350 000413 BR 5$ 
(1) 002352 017637 000004 002376 3S: MOV a4 (SP) ,4$ ::PUT MSG ADDR IN JSR LINKAGE 
(1) 002360 062766 000002 000004 ADD #2,4(SP) -BUMP RETURN ADDRESS 
(3) 002366 013746 177776 MOV 177776, =(SP) : :PUSH 199776 ON STACK 
(1) 002372 004737 001740 JSR PC $TYPE *=CALL rYPE MACRO 
(1) 002376 000000 4$: .WORD 0 
(1) 002400 S$: 
(1) 002400 105737 002466 10$: TSTB ~—- SFFLG ::SHOULD REPORT FATAL ERROR? 
(1) 002404 001416 BEQ 12$ *:IF NOT: BR 
(1) 002406 005737 001204 TST SENV : RUNNING UNDER APT? 
(1) 002412 001413 BEQ 12$ IF BR 
(1) 002414 005737 001164 11$: TST SMSGTYPE FINISHED LAST MESSAGE? 
<1) 002420 001375 BNE 1 WAIT 
(1) 002422 017637 000004 001166 MOV a4(SP).$FATAL ::GET NERROR 8 
(1) 002430 062766 000002 000004 ADD #2,4(SP) - BUMP RETURN ADDR. 
(1) 002436 005237 001164 INC SMSGTYPE ::TELL APT TO TAKE ERROR 
(1) 002442 105037 002466 12$:  CLRB  $FFLG >=CLEAR FATAL FLAG 
(1) 002446 105037 002465 CLRB  ~—s_« S$LFLG >: CLEAR LOG FLAG 
(1) 002452 105037 002464 CLRB © $MFLG >: CLEAR MESSAGE FLAG 
(3) 002456 012601 MOV (SP)+,R1 -:POP STACK INTO R1 
(3) 002460 012600 MOV (SP) +,RO : :POP STACK INTO RO 
(1) 002462 000207 RTS PC RETURN 
(1) 002464 000 $MFLG: .BYTE 0 ; :MESSG. FLAG 
(1) 002465 000 SLFLG: .BYTE 0 FLAG 
(1) 002466 000 SFFLG: .BYTE 0 > :FATAL FLAG 
(1) 002470 EVEN 
(1) 2 APTSIZE=200 
(1) 1 APTENV=001 
(1) 000100 APTSPOOL=100 
(1) 000040 APTCSUP=040 
46 .SBTTL TRAP DECODER 
(2) J LARA AAA AAA AERA AEA AERAAAEKARAERAERAAERAEAEAEAARAEAER ERR 
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:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX *HROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


$TRAP: MOV RO,-(SP) 7; SAVE RO 
MOV 2(SP) ,RO >;GET TRAP ADDRESS 
TST -(RO) ; BACKUP BY 2 
MOVB (RO) ,RO 3;;GET RIGHT BYTE OF TRAP 
ASL RO >;POSITION FOR INDEXING 
MOV $STRPAD(RO),RO ;; INDEX TO TABLE 
RTS RO 3;G0 TO ROUTINE 


3:THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 


$TRAP2: MOV (SP) ,-(SP) ;:MOVE THE PC DOWN 
MOV 4(SP) ,2(SP) >sMOVE THE PSW DOWN 
RTI ;sRESTORE THE PSW 
-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
“*BY THE ‘'TRAP’' INSTRUCTION. 


: ROUTINE 
$TRPAD: .WORD $TRAP2 
$TYPE  ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 


. END 


. = 
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VMNGA P11 CROSS REFERENCE TABLE SEQ 0015 
ABASE = 000000 20 
ACDW1 = 000000 20 
ACDW2 = 000000 20 
ACPUOP= 000000 20 

DWO = 000000 20 
ADDW1 = 000000 20 
ADDW10= 000000 20 

11= 000000 20 

ADDW12= 000000 29 
ADDW13= 000000 2U 
ADDW14= 000000 20 
ADDW15= 000000 20 
ADDW2 = 000000 20 
ADDWS = 000000 20 
ADDW4 = 000000 20 
ADDWS = 000000 20 
ADDW6 = 000000 20 
ADDW7 = 000000 20 
ADDW8 = 000000 20 
ADDWI = 000000 20 
ADEVCT= 000000 20 
ADEVM = 000000 20 
AENV = 000000 20 
AENVM = 000000 20 
AFATAL= 000000 20 
AMADR1= 000000 20 
AMADR2= 000000 20 
AMADR3= 00000. 20 
AMADR4S= 000000 20 
AMAMS1= 000000 20 
AMAMS2= 000000 20 
AMAMS 3= 000000 20 
AMAMS4= 000000 20 
AMSGAD= 000000 20 
AMSGLG= 000000 20 
AMSGTY= 000000 20 
AMTYP1= 000000 20 
AMTYP2= 000000 
AMTYP3= 000000 20 
AMTYP4= 000000 
APASS = 000000 20 
APRIOR= 000000 
APTCSU= 000040 4a 45a 
APTENV= 000001 44 45a 
APTSIZ= 000200 28 454 
APTSPO= 000100 44 45a 
A = 000000 
ATESTN= 000000 20 
AUNIT = 000000 
*USWR = 000000 20 
AYECT1= 000000 
AVECT2= 000000 20 
BEGIN 001246 16 27m 
BITO = 000001 104 
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VMNGA P11 CROSS REFERENCE TABLE SEQ 0016 
BITOO = 000001 104 
BITO1 = 000002 104 
BITO2 = 000004 104 
BITOS = 000010 104 
BITO4 = 000020 104 
BITOS = 000040 104 
BITO6 = 000100 104 
BITO7 = 000200 104 
BITO8 = 000400 104 
BITO9 = 001000 104 
BIT] = 2 104 
BIT10 = 002000 104 
BIT11 = 000 104 
BIT12 = 010000 104 
BIT13 = 020000 104 
BIT14 = 040000 104 
BIT15 = 100000 104 
BIT2 = 000004 104 
BITS = 000010 104 
BIT4 = 000020 104 
BITS = 000040 104 
BIT6 = 000100 104 
BIT? = 000 104 
BIT8 = 000400 104 
BIT9 = 001000 104 
BPTVEC= 000014 104 
CR = 000015 104 44 
CRLF = 000200 104 29 44 
DDISP = 177570 10a 20 28 
DISPLA 001142 204 28* 
DISPRE= 28 42a 
DSWR = 177570 104 20 28 
EMTVEC= 104 
ERRVEC= 104 28* 

Ss = eeeeee | 29 46 

= 000011 104 44 
IOTVEC= 000020 104 
LF = 000012 104 44 
PC = 104 32* 44 45* 
PIRQ = 177772 104 
PIRQVE= 000240 104 
PRO = 104 
PRI = 0 104 
PR2 = 000100 104 
PRS = 000140 104 
PRG = 000 104 
PRS = 000240 104 
PR6 = 000 104 
PR7 = 340 104 
PS = 177776 104 
PSwW = 177776 104 
PWRVEC= 000024 104 
RESVEC= 000010 104 
=%000000 104 32* 44* 45* 46* 
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C CROSS REFERENCE TABLE 


VMNGA P11 

R1 =%000001 
Re =%000002 
R3 =%000003 
R4 =%000004 
R5 =%000005 
R6 =%000006 
R7 =%000007 
SETMNC 001612 
p =%000006 
STACK = 001100 
STKLMT= 177774 
SWR 001140 
SWREG = 000176 
SWwO = 000001 
SWOO = 000001 
SwO1 = 000002 
SWO2 = 000004 
SwWO3 = 000010 
SWwO4 = 000020 
SswOoS = 

SWO6 = 000100 
SWO7 = 000200 
SwO8 = 000490 
SWwO9 = 001000 
Swi = 2 
SW10 = 002000 
SWw11 = 000 
SW12 = 010000 
SW13 = 020000 
SW14 = 040000 
SW15 = 100000 
SW2 = 000004 
SW3 = 000010 
SW4 = = 000020 
SWS = 000040 
SW6 = 000100 
SW7 = 000200 
SW8 = 000400 
SW9 = 001000 
TBITVE= 000014 
TKVEC = 

TPVEC = 

T = 000034 
TRTVEC= 000014 
TYPE = 104401 
$APTHD 1 
SASTAT= s**e0% 
SATYC 002246 
$ATY1 002222 
SATY3 0022 
SATY4 002240 
SAUTOB 001134 
$BASE 001240 
SBDADR 001122 
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CROSS REFERENCE TABLE 
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fh 45 
28 ote 45 


fly 
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SEQ 0018 
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001006 
001160 
atkeee 
kkkkee 
kkeken 


= «x*eenee 
= #eeeee 


SUN 
SUNITM 
SUSWR 
SVECT1 
SVECT2 
$$GET4= 
. SASTA= 
-$X = 


xeexkee 


xeeanee 
eeananke 


001740 


cketen 
001176 
001010 
001210 
001234 
001236 


000000 
002530 
reeanne 


001000 
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CVMNGA P11 CROSS REFERENCE TABLE SEQ 0021 
- $SCOP 64 

$SSPAC 7a 

. $SWDO va 

. STRAP (a 46 

.STYPB 64 

~STYPD 84 

-STYPE 7# 44 
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P11 CROSS REFERENCE TABLE SEQ 0022 
ADD 44 45 

ASL 46 

ASR 45 

BEQ 28 29 32 44 45 

BGT 32 , 

BIC 32 

BITB 28 44 45 

BLT 44 

BNE 28 29 44 45 

BPL 44 

BR 28 29 44 45 

CLR 28 

CLRB 44 45 

CMP 28 29 

CMPB 44 45 

DEC 32 

DECB 44 

EMT 10 

HALT 44 

INC 32 45 

INCB 44 

10T 10 

JMP 16 32 

JSR 32 4G 45 

MOV 28 32 44 45 46 

MOVB 33 45 46 

RESET 27 32 

RTI 28 44 46 

RTS 44 45 46 

SUB 45 

TRAP 46 

TST 4 45 46 

TSTB 44 45 

ASCII —.20 36 37 

-ASCIZ 20 29 

“BYTE 20 32 35 38 45 

- ENABL 4 

“END 47 

“ENDC 9 10 17 19 20 24 28 29 32 44 45 46 
EQUIV. ~—_:10 

-EVEN 20 29 40 45 

IF 9 10 17 19 20 24 28 29 32 4G 45 46 
VIFF 10 17 19 20 28 29 32 44 45 46 
IFT 29 

IF TF 29 

SIF 9 20 28 29 32 44 46 

. IRP oe 32 45 

“LIST 3 10 13 20 24 28 29 32 46 
“MACRO —-20 28 46 

“MCALL 5 6 2 10 20 28 29 

“NLIST 2 10 20 24 28 29 32 46 
“PAGE 20 
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VMNGA P11 CROSS REFERENCE TABLE SEQ 0023 
.SBTTL 10 17 19 20 26 28 29 32 44 45 46 | 

-TITLE G 

“WORD 12 17 19 20 32 44 45 46 


ERRORS DETECTED: 0 


2 
CVMNG-A MINC=11 CHAIN TERMINATOR PROGRAM MACY11 27(654) 15-SEP-78 09:05 PAGE 4-13 
CVMNGA P11 SEQ 0024 


*CVMNGA , CVMNGA/ CRF =C VMNGA 
RUN-TIME: 20 2 0 SECONDS 
CORE USED: 24K 


